home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / RCSC.ZIP / PACKAGES / AWK320.ZIP / UNBUNDLE.AWK < prev    next >
Text File  |  1990-02-08  |  165b  |  9 lines
  1. # unbundle -- unpack a bundle into separate files 
  2. # AKW p 82 
  3.  
  4. $1 != prev { close(prev); prev = $1 }
  5. { 
  6.         print substr($0, index($0, " ") + 1) >$1
  7. }
  8.  
  9.